﻿Public Class ViewTop : Inherits View

	Public Overrides Sub Run()
		List.Clear()
		List.Centered = True
		List.AddButton("Ayarlar", Nothing)
		List.AddItem("Photo", "Fotoğraf", My.Resources.photo)
		List.AddItem("Movie", "Film", My.Resources.movie)
		List.AddItem("Music", "Müzik", My.Resources.music)
	End Sub

	Public Overrides Sub Tapped(ByVal Key As String)
		Select Case Key
			Case "Photo" : MainForm.ShowPhoto()
		End Select
	End Sub

End Class
